10 

TTTI p 

M 1 >-4a I Wv#. Wvn 

C0PY256E 6-20-91 

20 

.OPT OBJ 


30 

''jf vn> 

$8500 


40 CIOV = 

$E456 


50 D 

SKINV = 

$E453 


60 S 

I0V = 

$E459 


70 DOSVEC = 

$0A 


80 DOSINI = 

$00 


90 COLDST = 

$0244 


0100 

KBDHND 

= $E420 


0110 

DISPLA 

= $E410 


0120 

GETCH = 

$8300 

; POINTER KEYBD HANDLER 

0130 

0UTCH1 

= $8302 

; POINTER TO DISPLA HANDLER 

0140 

CHAR = 

$02FA 


0150 

ATACHR 

= $02FB 


0160 

INBUF = 

$8400 

; TEMP WORK AREA 

0170 

SDRIVE 

= $8304 

; SOURCE DRIVE 

0180 

DDRIVE 

= $8305 

; DEST DRIVE 

0190 

NUMBER 

= $8306 

; NUMBER OF COPIES 

0200 

FFLAG z 

$8307 

; FORMAT FLAG 

0210 

SECTL.0 

= $8308 


0220 

SECTHI 

= $8309 


0230 

D301 = 

$8310 

; SAVED 

0240 

WRTC = 

$8312 

; VERIFY FLAG 

0250 

BKTEST 

= $8313 

; BANKING TEST 

0260 

TNUM = 

$8314 


0270 

TEMPI = 

$8315 


0280 

TEMP2 = 

$8316 


0290 

BUSCMD 

= $8317 


0300 

DENFLG 

- $8318 


0310 

SRANGE 

= $8320 


0320 

KCOUNT 

*** O w O 


0330 

TBUFLO 

= $00 

; INITIAL 10 BUFFER 

0340 

TBUFHI 

= $40 


0350 

DDEVIC 

- $0300 

; BUS I.D. # 

0360 

DUNIT = 

$0301 

; DEVICE # 

0370 

DCOMND 

= $0302 

; BUS COMMAND 

0380 

DSTATS 

= $0303 

; STATUS 

0390 

DBUFLO 

= $0304 

; BUFFER POINTER LO 

0400 

DBUFHI 

= $0305 

; BUFFER POINTER HI 

0410 

DTIMLO 

= $0306 

; DISK TIME OUT 

0420 

DBYTLO 

= $0308 

;# OF BYTES LO 

0430 

DBYTHI 

= $0309 

;# OF BYTES HI 

0440 

DAUX1 = 

$030A 

; SECTOR # LO 

0450 

DAUX2 = 

$030B 

; SECTOR # HI 

0470 

; SET UP 

TITLE 


0480 

START J 

SR INI T 


0490 

NCOPY LDA #1 


0500 

STA 

SECTLO 

; POINT TO FIRST SECTOR 

0510 

LDX 

#MESS1&255 

0520 

LDY 

#MESS1/ 256 

a r *7 a 

0 3 o 0 

JSR 

PUTLIN 

; COPYRIGHT 

0540 

LDX 

#MESS2&255 

0550 

LDY 

SMESS2/256 

0560 

JSR 

PUTLIN 

; NUM OF COPIES? 

0570 

LDX 

#0 


0580 

3TX 

SECTHI 


0590 

STX 

KCOUNT 


0600 

STX 

DENFLG 


0610 

LDA 

#$D1 

- 

0620 

STA 

SRANGE 


0630 

LDA 

#2 


0640 

STA 

SRANGE+1 


0650 

KGET JSI 

R GETKEY 

; GET CHARACTER 

/: n 

i n v 

isnm ik i t 




0670 LDA ATACHR 

0680 CMP # 7 X ; EXIT 

0690 BNE CHKD 

0700 LDA D301 ; SAVED REG 

0710 STA $D301 ;SET IT NORMAL 

0720 RTS 

0730 CHKD CMP #$44 ;"D" FOR DOUBLE DENSITY 

0740 BNE CHKH 

0750 STA DENFLG ; SHOW DD 

0760 JMP PRCH 

0770 CHKH CMP #’H 7 ;$171 SECTORS 

0780 BNE CHKQ 

0790 LDY #$72 

0800 STY SRANGE 

0810 LDY #1 

0820 STY SRANGE+1 

0830 JMP PRCH 

0840 CHKQ CMP # 7 Q 7 ;$5A0 SECTORS 

0850 BNE CHKO 

0860 LDY #$A1 

0870 STY SRANGE 

0880 LDY #5 

0890 STY SRANGE+1 

0900 JMP PRCH 

0910 CHKO CMP #’0 7 ;$B40 SECTORS 

0920 BNE CKDIG 

0930 LDY #$41 

0940 STY SRANGE 

0950 LDY #$0B 

0960 STY SRANGE+1 

0970 PRCH JSR OUTCH ; PRINT CHAR 

0980 JMP KGET 

0990 CKDIG CMP #$30 ;LESS THAN 0? 

1000 8CC KGET 

1010 CMP #$3A ; MORE THAN 9 

1020 BCC NEXT CH 

1030 CMP #$9B ; RETURN? 

1040 BNE KGET 

1050 NEXTCH STA INBUF ,X 

1060 JSR OUTCH 

1070 INC KCOUNT 

1080 CMP #$9B ; RETURN? 

1090 BNE KGET 

1100 LDA KCOUNT 

1110 CMP #4 

1120 BCC K4 

1130 JMP NCOPY 

1140 K4 CMP #2 

1150 BNE TWODIG 

1160 LDA INBUF 

1170 SEC 

1180 SBC #$30 

1190 JMP STNUM 

1200 TWODIG LDA INBUF ;ASCII TO HEX 

1210 SEC 

1220 SBC #$30 

1230 ASL A 

1240 STA NUMBER 

1250 ASL A 

1260 ASL A 

1270 CLC 

1280 ADC NUMBER 

1290 STA NUMBER 

1300 LDA IN8UF+1 

1310 SEC 

i cor' 


1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1841 
1850 
1860 
1870 
1880 

1890 

1891 
1900 
1910 
1920 
1930 
1940 
1950 


CLC 

ADC NUMBER 
STNUM STA NUMBER 
STA TNUM 

SRCDRV LDX #MESS3&255 


K2 


LDY 

#MESS3/256 



JSR 

PUTLIN 

; SOURCE DRIVE 

JSR 

GETKEY 




LDA 

ATACHR 




CMP 

#$31 

; LESS 

THAN 

1? 

DAA 
D vv 

K2 




CMP 

#$35 

; MORE 

THAN 

4? 

BCS 

K2 




SEC 





SBC 

#$30 




STA 

SDRIVE 




JSR 

MYOUT 





DESDRV LDX #MESS4&255 


K3 


LDY 

#MESS4/256 



JSR 

PUTLIN 

; DESTIN DRIVE? 

JSR 

GETKEY 




LDA 

ATACHR 




CMP 

#$31 

; LESS 

THAN 

1? 

BCC 

K3 




CMP 

#$35 

; MORE 

THAN 

4? 

BCS 

K3 




OCT O 
O CX. v 





SBC 

#$30 




STA 

DDRIVE 




JSR 

MYOUT 





VERIFY LDX #MESS7&255 
LDY #MESS7/256 


JSR 


J3R 


LDA 


c: T A 




Y 


PUTLIN 
GETKEY 
#$50 
WRTC 

LDA ATACHR 
CMP #$59 
8NE VER1 
LDA #$57 
STA WRTC 
VER1 JSR MYOUT 
FORMAT LDX #ME3S5&255 
LDY wmctqq 


; VERIFY DISK? 


NON VERIFY 


#MESS5/256 


JSR PUTLIN 
JSR GETKEY 
LDA ATACHR 
STA FFLAG 
JSR MYOUT 
MAIN JMP SRCMSG 
RSRC LDA #$40 


; FORMAT DISK? 


; GO WAIT FOR START 


STA 


BUSCMD 


JSR 


JSR 


SETUP 

READ 


DSTMSG 


JMP 

WLOOP JSR FMTDSK 
WRT LDA #$80 


STA 


BUSCMD 


JSR 


JSR 


DEC 

LDA 

CMP 

BNE 


SETUP 

WRITE 

TNUM 

TNUM 

#0 


; NUMBER OF COPIES 
; IN 


PASS 


DSTMSG 


STA FFLAG 

I r>/\ Nil IMCPD 


; TURN OFF FORMAT FLAG 

• ClFT OtTAnV CTOD KICVT 


i oxn 



? 


1970 

STA 

TNUM 

1980 

JSR 

TDONE 

1990 

SRCMSG • 

JSR MSG6 

2000 

JSR 

BEGIN 

2010 

JMP 

RSRC 

2020 

DSTMSG ■ 

JSR MSGS 

2030 

JSR 

BEGIN 

2040 

JMP 

WLOOP 

2050 

BEGIN LDA $D01F 

2060 

CMP 

#6 

2070 

BNE 

BEGIN 

2080 

RTS 


2090 

FMTDSK ! 

LDA FFLAG 

2100 

CMP 

#$59 

2110 

BNE 

CONT 

2120 

LDA 

#$80 

2130 

STA 

DTIMLO 

2140 

LDA 

DDRIVE 

2150 

STA 

DUN IT 

2160 

LDA 

#$21 

2170 

STA 

DCOMND 

2180 

JSR 

GETRDY 

2190 

LDA 

#$40 

2200 

STA 

DSTATS 

2210 

STA 

DBUFLO 

222 0 

LDA 

#$80 

2230 

STA 

DBUFHI 

2240 

JSR 

SIOV 

2250 

BMI 

FMTDSK 

2260 

LDA 

#TBUFHI 

2270 

STA 

DBUFHI 

ooon 

CONT RT: 

s 

2290 

READ LDA SDRIVE 

2300 

STA 

DUNIT 

2310 

LDA 

#$52 

2320 

STA 

DCOMND 

2330 

LDA 

SECTLO 

2340 

STA 

TEMPI 

2350 

STA 

DAUX1 

2360 

LDA 

SECTHI 

2370 

STA 

TEMP2 

2380 

STA 

DAUX2 

2390 

JSR 

GETRDY 

2400 

LDA 

#TBUFLO 

2410 

STA 

DBUFLO 

2420 

LDA 

#TBUFHI 

2430 

STA 

DBUFHI 

2440 

C0NT2 J: 

SR SIOV 

2450 

JSR 

INCSD 

2460 

BCC 

C0NT2 

2470 

RTS 


2480 

INCSD CLC 

2490 

LDA 

SECTLO 

2500 

ADC 

#1 

2510 

STA 

SECTLO 

2520 

STA 

DAUX1 

2530 

LDA 

SECTHI 

2540 

ADC 

#0 

2550 

STA 

SECTHI 

2560 

STA 

DAUX2 

2570 

CMP 

SRANGE+1 

2580 

BNE 

CONTI 

2590 

LDA 

SECTLO 

2600 

CMP 

SRANGE 

2610 

BNE 

CONTI 


; PASS 

; SEE IF FINISHED 


; GO READ MORE SECTORS 


; GO WRITE NEXT DISK 

; IS START PUSHED 
; NO . GOTO BEGIN 

; FORMAT FLAG 
; " Y " 

; NO. GOTO CONT 
; TIMEOUT 120 SEC. 


; FORMAT 


; FOR STATUS 
; GO FORMAT DISK 
; TRY AGAIN IF BAD 


; SOURCE DRIVE 

; READ COMMAND 

; STORE IN TEMP SO WE 
; KNOW WHERE TO WRITE 
; AND GET READY 
; FOR I/O CALL 

; SECTOR TO READ 


; BUFFER POINTERS 


; INCREMENT SECTOR 
; AND BUFFER PIONTERS 


2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 

3130 

3140 

3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

TO"? A 

w w U 
3240 

V**r 4** W w 

3260 

3270 


STA 

LDA 

STA 

pi — r\ 

RTS 


SD301 

#$80 

BKTEST 


; RAM BANK AND 
; SETUP TEST BYTE 


1ST 


RAM BANKo 


O 


; FOR 

; SET CARRY WHEN DONE 


CONTI JSR GETRDY 
RTS 

WRITE LDA DDRIVE ; GET READY 

; TO WRITE 


STA 

DUNIT 

LDA 

WRTC 

STA 

DCOMND 

LDA 

#10 

STA 

$4D 

STA 

DTIMLO 

LDA 

TEMPI 

STA 

SECTLO 

STA 

DAUX1 

LDA 

TEMP2 

STA 

SECTHI 

STA 

DAUX2 

JSR 

GETRDY 

LDA 

#TBUFL0 

STA 

DBUFLO 

LDA 

#TBUFHI 

STA 

DBUFHI 


C0NT3 JSR SIOV 


JSR INCSD 
BCC C0NT3 
RTS 

GETRDY LDA #$31 


STA 

DDEVIC 

LDA 

8USCMD 

STA 

DSTATS 

LDA 

DENFLG 

8EQ 

SINGLE 

LDA 

DCOMND 

CMP 

#$21 

BEQ 

B256 

LDA 

SECTLO 

CMP 

#4 

BCS 

B256 

LDA 

SECTHI 

BNE 

B256 

SINGLE LDA #0 

STA 

DBYTHI 

LDA 

#$80 

STA 

CLC 

DBYTLO 

LDA 

DBUFLO 

ADC 

#$80 

STA 

DBUFLO 

LDA 

DBUFHI 

ADC 

#0 

STA 

DBUFHI 

JMP 

RDT 

B256 LDA #0 

STA 

DBYTLO 

LDA 

#1 

STA 

CLC 

DBYTHI 

LDA 

DBUFHI 

ADC 

#1 

STA 

DBUFHI 

RDT LDA 

DBUFHI 

CMP 

#$7F 


DPiT A 


; WRITE COMMAND 


ATRACT FLAG 


; DON'T DELETE THIS DUMMY 
; AT TOP OF BANK? 

- Kin 




3290 CLC 

3300 LDA $D301 

3310 ADC #4 ; GO TO ANOTHER BANK 

3320 CMP BKTEST ; ANY FIRST BANKS LEFT 

3330 BCC RDT3 ;YES 

3340 CLC ; SET UP NEXT SET OF BANKS 

3350 ADC #$10 

3355 8CS STP 

3360 STA $D301 

3370 STP CLC 

3380 LDA #$20 ;SET UP NEXT 4 BANKS 

3390 ADC BKTEST 

3400 STA BKTEST 

3410 BCC RDT5 

3420 LDA D301 ;N0 BANKS LEFT 

3430 STA $D301 ; RESET TO NORMAL 

3440 RDT 4 RTS 
3450 RDT3 STA $D301 

3460 RDT5 LDA #0 ; RESET BUFFERS FOR 

3470 STA DBUFLO ; XTRA BANKS 

3480 LDA #$40 

3490 STA DBUFHI 

3500 CLC 

3510 RTS 

3520 MESS2 .BYTE "HOW MANY COPIES? (X TO EXIT)",$9B 

3530 MESS3 .BYTE "SOURCE DRIVE? ", $9B 

3540 MESS4 .BYTE "DESTINATION DRIVE?" , $98 

3550 MESS7 .BYTE "VERIFY WRITES?(Y OR N)",$9B 

3560 MESS5 .BYTE "FORMAT DESTINATION (Y or N)?",$9B 

3570 MESS6 .BYTE ">/INSERT SOURCE DISK, PUSH START/' , $98 

3580 MESS8 .BYTE "} INSERT DESTINATION DISK, PUSH START/', $9B 

3590 MSG6 LDX #MESS6&255 

3600 LDY #MESS6/ 256 

3610 JMP PUTLIN ;SOURCE DISK 

3620 MSG8 LDX #MESS8&255 

3630 LDY #MESS8/ 256 

3640 JMP PUTLIN ; NEXT DISK 

3650 TDONE LDA SECTLO 

3660 CMP SRANGE 

3670 BNE TRTS 

3680 LDA SECTHI 

3690 CMP SRANGE+1 

3700 BNE TRTS 

3710 LDA D301 

3720 STA $D301 ; RESTORE MAP REG 

3730 PLA ; CLEAN UP STACK 

3740 PLA ; BEFORE JMP OUT OF SUBROUTINE 

3750 JMP START ; RESTART 

3760 TRTS RTS 

3770 MYOUT LDA ATACHR 

3780 OUTCH JMP (0UTCH1) ; TO OS TO PRINT CHARACTER 
3790 GETKEY JMP (GETCH) ; GO TO OS AND GET KEY 
3800 INIT LDA $D301 ; BANK MAP 

3810 STA D301 ;SAVE IT FOR EXIT 

3860 LDA #10 

3870 STA DTIMLO ;SET DEVICE TIMEOUT 

3880 LDA KBDHND+5 ;SET UP FOR CALL TO GET KEYBOARD CHARACTER 

3890 STA GETCH+1 ;VIA JMP(GETCH) 

3900 LDA KBDHND+4 

3910 CLC 

3920 ADC #1 ; FOR SCREWED UP VECTOR TABLE 

3930 STA GETCH ; IF WE CROSS PAGE BOUNDARY 

3940 BCC SOUTCH 

3950 INC GETCH+1 ; ADD 1 TO HIGH BIT 

3960 SOUTCH LDA DISPLA+7 ; SAME AS ABOVE TO PRINT CHR. 

*WTA TMn/m ITOU1 '\ 


7070 


OTA m ITF'U 1 L 1 


3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 


LDA DISPLA+6 
CLC 

ADC #1 
STA OUT CHI 
BCC GOON 
INC QUTCH1+1 
GOON RTS 

MESS1 .BYTE "}C0PY256E VI. 0(C) 1991 NEWELL IND,",$9B 
PUTLIN TXA ; PUT LINE ON SCREEN 

LDX #0 
STA $0344, X 
TYA 

STA $0345, X 
LDA #9 
STA $0342, X 
LDA tt$FF 
STA $0348, X 
END JMP CIOV 
.END 


